inherited FrmReservaLancamento: TFrmReservaLancamento
  Left = 351
  Top = 0
  Caption = 'Reserva de Produtos'
  ClientHeight = 522
  ClientWidth = 774
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 485
    Width = 774
    object BitBtnBaixar: TBitBtn
      Left = 664
      Top = 8
      Width = 99
      Height = 25
      Caption = 'Baixar Documento'
      Enabled = False
      TabOrder = 7
      OnClick = BitBtnBaixarClick
    end
  end
  inherited Panel2: TPanel
    Width = 774
    Height = 485
    inherited Panel3: TPanel
      Width = 772
      Caption = 'Reservas'
      inherited GroupBox1: TGroupBox
        Left = 693
      end
    end
    inherited Panel4: TPanel
      Width = 772
      Height = 443
      object Label6: TLabel [0]
        Left = 9
        Top = 10
        Width = 90
        Height = 13
        Caption = 'Empresa de origem'
      end
      object Label8: TLabel [1]
        Left = 9
        Top = 49
        Width = 46
        Height = 13
        Caption = 'Vendedor'
      end
      object Label1: TLabel [2]
        Left = 8
        Top = 86
        Width = 91
        Height = 13
        Caption = 'Cliente/Fornecedor'
      end
      object Label4: TLabel [3]
        Left = 437
        Top = 46
        Width = 63
        Height = 13
        Caption = 'Observa'#231#245'es'
      end
      object Label9: TLabel [4]
        Left = 437
        Top = 11
        Width = 68
        Height = 13
        Caption = 'Documento n'#186
      end
      object Label2: TLabel [5]
        Left = 513
        Top = 12
        Width = 36
        Height = 13
        Caption = 'Usu'#225'rio'
      end
      object Label3: TLabel [6]
        Left = 671
        Top = 12
        Width = 58
        Height = 13
        Caption = 'Data e Hora'
      end
      inherited SbHints: TStatusBar
        Top = 420
        Width = 764
      end
      object DBEditEmpresa_IDF: TDBEdit
        Left = 9
        Top = 24
        Width = 32
        Height = 21
        Hint = 'C'#243'digo da empresa de origem'
        CharCase = ecUpperCase
        DataField = 'RES_EMPRESA_ORIGEM'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = DBEditEmpresa_IDFExit
      end
      object BitBtnEmpresa: TBitBtn
        Left = 42
        Top = 24
        Width = 22
        Height = 21
        Hint = 'Pesquisa empresa'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BitBtnEmpresaClick
      end
      object EditEmpresa_Descri: TEdit
        Left = 63
        Top = 24
        Width = 367
        Height = 21
        Hint = 'Exibe a fantasia da empresa.'
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = False
        TabOrder = 15
      end
      object DBEdtVendedor_Codigo: TDBEdit
        Left = 8
        Top = 61
        Width = 57
        Height = 21
        Hint = 'C'#243'digo do vendedor'
        CharCase = ecUpperCase
        DataField = 'RES_VENDEDOR'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnExit = DBEdtVendedor_CodigoExit
      end
      object BitBtnVendedor: TBitBtn
        Left = 66
        Top = 61
        Width = 23
        Height = 22
        Hint = 'Pesquisa vendedor '
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        TabStop = False
        OnClick = BitBtnVendedorClick
      end
      object EdtVendedor_Descri: TEdit
        Left = 89
        Top = 61
        Width = 340
        Height = 21
        TabStop = False
        Color = clBtnFace
        Enabled = False
        ReadOnly = True
        TabOrder = 16
      end
      object EditFornecedor_descri: TEdit
        Left = 137
        Top = 98
        Width = 292
        Height = 21
        Hint = 'Exibe nome do fornecedor.'
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 17
      end
      object BitBtnFornecedor: TBitBtn
        Left = 115
        Top = 98
        Width = 23
        Height = 21
        Hint = 'Pesquisa cliente/fornecedor'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        TabStop = False
        OnClick = BitBtnFornecedorClick
      end
      object EditFornecedor: TDBEdit
        Left = 8
        Top = 98
        Width = 106
        Height = 21
        Hint = 'Nome do fornecedor'
        DataField = 'RES_PESSOA'
        DataSource = DtSrc
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnExit = EditFornecedorExit
      end
      object DBMemo1: TDBMemo
        Left = 437
        Top = 59
        Width = 326
        Height = 61
        Hint = 'Observa'#231#245'es da reserva'
        DataField = 'RES_OBSERVACAO'
        DataSource = DtSrc
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
      end
      object DBEditDocumento: TDBEdit
        Left = 437
        Top = 24
        Width = 72
        Height = 21
        Hint = 'Documento de Entrada'
        CharCase = ecUpperCase
        Color = clBtnFace
        DataField = 'RES_IDF'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 18
      end
      object EditUsuario: TEdit
        Left = 513
        Top = 25
        Width = 151
        Height = 21
        Hint = 'Exibe nome do fornecedor.'
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 19
      end
      object EditDataLanc: TEdit
        Left = 671
        Top = 25
        Width = 92
        Height = 21
        Hint = 'Exibe nome do fornecedor.'
        TabStop = False
        Color = clBtnFace
        Ctl3D = True
        ParentCtl3D = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 20
      end
      object DBGrid_Produtos: TDBGrid
        Left = 4
        Top = 257
        Width = 764
        Height = 163
        Align = alBottom
        Color = clWhite
        Ctl3D = True
        DataSource = DSItens
        Enabled = False
        FixedColor = 16767940
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 13
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnCellClick = DBGrid_ProdutosCellClick
        Columns = <
          item
            Expanded = False
            FieldName = 'REP_SEQUENCIAL'
            Title.Caption = 'Seq'
            Width = 27
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'REP_LKP_EMPRESA'
            Width = 182
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'REP_LKP_CODPRODUTO'
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'REP_LKP_DESCPROD'
            Width = 227
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'REP_QUANTIDADE'
            Width = 62
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'REP_CALC_SITUACAO'
            Width = 63
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'REP_VALIDADE'
            Width = 114
            Visible = True
          end>
      end
      object pnlProdutos: TPanel
        Left = 4
        Top = 138
        Width = 764
        Height = 89
        Align = alCustom
        Enabled = False
        TabOrder = 7
        object Label5: TLabel
          Left = 8
          Top = 8
          Width = 98
          Height = 13
          Caption = 'Empresa de Destino:'
          FocusControl = DBEditEmpresaDestino
        end
        object Label12: TLabel
          Left = 8
          Top = 48
          Width = 40
          Height = 13
          Caption = 'Produto:'
        end
        object Label7: TLabel
          Left = 472
          Top = 48
          Width = 58
          Height = 13
          Caption = 'Quantidade:'
          FocusControl = DBEditQuantidade
        end
        object Label10: TLabel
          Left = 536
          Top = 48
          Width = 44
          Height = 13
          Caption = 'Validade:'
        end
        object Label11: TLabel
          Left = 472
          Top = 8
          Width = 45
          Height = 13
          Caption = 'Situa'#231#227'o:'
        end
        object DBEditEmpresaDestino: TDBEdit
          Left = 8
          Top = 24
          Width = 49
          Height = 21
          Hint = 'C'#243'digo da empresa de destino'
          DataField = 'REP_EMPRESA_DESTINO'
          DataSource = DSItens
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnExit = DBEditEmpresaDestinoExit
        end
        object stEmpresaDestino: TStaticText
          Left = 81
          Top = 24
          Width = 384
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 2
        end
        object BitBtnEmpresaDestino: TBitBtn
          Left = 59
          Top = 24
          Width = 21
          Height = 21
          Hint = 'Pesquisa empresa'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          TabStop = False
          OnClick = BitBtnEmpresaDestinoClick
        end
        object EditProduto: TEdit
          Left = 8
          Top = 64
          Width = 129
          Height = 21
          Hint = 'C'#243'digo do produto'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnExit = EditProdutoExit
        end
        object BitBtnProduto: TBitBtn
          Left = 140
          Top = 64
          Width = 21
          Height = 21
          Hint = 'Pesquisa produto'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          TabStop = False
          OnClick = BitBtnProdutoClick
        end
        object stProdutoDescricao: TStaticText
          Left = 162
          Top = 64
          Width = 303
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 5
        end
        object DBEditQuantidade: TDBEdit
          Left = 472
          Top = 64
          Width = 57
          Height = 21
          Hint = 'Quantidade de itens'
          DataField = 'REP_QUANTIDADE'
          DataSource = DSItens
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
        end
        object EditValidadeData: TEdit
          Left = 536
          Top = 64
          Width = 65
          Height = 21
          Hint = 'Dia em que a reserva expira'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          Text = '00/00/0000'
          OnExit = EditValidadeDataExit
        end
        object EditValidadeHora: TEdit
          Left = 608
          Top = 64
          Width = 49
          Height = 21
          Hint = 'Hora em que a reserva expira'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 8
          Text = '00:00:00'
        end
        object DBEditSituacao: TDBEdit
          Left = 472
          Top = 24
          Width = 273
          Height = 21
          TabStop = False
          AutoSize = False
          Color = clBtnFace
          Ctl3D = False
          DataField = 'REP_CALC_SITUACAO'
          DataSource = DSItens
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 9
        end
      end
      object Panel7: TPanel
        Left = 4
        Top = 120
        Width = 764
        Height = 18
        Align = alCustom
        BorderWidth = 2
        Caption = 'Itens do Documento de Reserva'
        Color = 16767940
        TabOrder = 21
      end
      object BitBtnInserirProd: TBitBtn
        Left = 6
        Top = 232
        Width = 75
        Height = 23
        Caption = 'Inserir'
        Enabled = False
        TabOrder = 8
        OnClick = BitBtnInserirProdClick
      end
      object BitBtnConfirmarProd: TBitBtn
        Left = 81
        Top = 232
        Width = 75
        Height = 23
        Caption = 'Confirmar'
        Enabled = False
        TabOrder = 9
        OnClick = BitBtnConfirmarProdClick
      end
      object BitBtnAlterarProd: TBitBtn
        Left = 156
        Top = 232
        Width = 75
        Height = 23
        Caption = 'Alterar'
        Enabled = False
        TabOrder = 10
        OnClick = BitBtnAlterarProdClick
      end
      object BitBtnCancelarProd: TBitBtn
        Left = 231
        Top = 232
        Width = 75
        Height = 23
        Caption = 'Cancelar'
        Enabled = False
        TabOrder = 11
        OnClick = BitBtnCancelarProdClick
      end
      object BitBtnVoltarProd: TBitBtn
        Left = 306
        Top = 232
        Width = 75
        Height = 23
        Caption = 'Voltar'
        Enabled = False
        TabOrder = 12
        OnClick = BitBtnVoltarProdClick
      end
      object BitBtnBaixarProd: TBitBtn
        Left = 382
        Top = 232
        Width = 75
        Height = 23
        Caption = 'Baixar'
        Enabled = False
        TabOrder = 22
        OnClick = BitBtnBaixarProdClick
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = ZSQLC_RESERVAS_DOCUMENTOS
    OnStateChange = DSItensStateChange
    Left = 560
  end
  object DSItens: TDataSource
    DataSet = ZSQLC_RESERVAS_ITENS
    OnStateChange = DSItensStateChange
    Left = 109
    Top = 10
  end
  object ZSQLC_RESERVAS_ITENS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    AfterOpen = ZSQLC_RESERVAS_ITENSAfterOpen
    AfterScroll = ZSQLC_RESERVAS_ITENSAfterScroll
    OnCalcFields = ZSQLC_RESERVAS_ITENSCalcFields
    BeforePost = ZSQLC_RESERVAS_ITENSBeforePost
    AfterPost = ZSQLC_RESERVAS_ITENSAfterPost
    SQL.Strings = (
      'SELECT '
      '  REP_RESIDF,'
      '  REP_SEQUENCIAL,'
      '  REP_EMPRESA_DESTINO,'
      '  REP_IDFPRODUTO,'
      '  REP_QUANTIDADE,'
      '  REP_VALIDADE,'
      '  REP_SITUACAO,'
      '  REP_DATABAIXA'
      'FROM '
      '  RESERVAS_PRODUTOS'
      'WHERE REP_RESIDF = :REP_RESIDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'REP_RESIDF'
        ParamType = ptUnknown
      end>
    Left = 321
    Top = 345
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'REP_RESIDF'
        ParamType = ptUnknown
      end>
    object ZSQLC_RESERVAS_ITENSREP_RESIDF: TIntegerField
      FieldName = 'REP_RESIDF'
      Required = True
    end
    object ZSQLC_RESERVAS_ITENSREP_SEQUENCIAL: TIntegerField
      FieldName = 'REP_SEQUENCIAL'
      Required = True
    end
    object ZSQLC_RESERVAS_ITENSREP_EMPRESA_DESTINO: TIntegerField
      FieldName = 'REP_EMPRESA_DESTINO'
      Required = True
    end
    object ZSQLC_RESERVAS_ITENSREP_IDFPRODUTO: TIntegerField
      FieldName = 'REP_IDFPRODUTO'
      Required = True
    end
    object ZSQLC_RESERVAS_ITENSREP_QUANTIDADE: TFloatField
      DisplayLabel = 'Quant.'
      FieldName = 'REP_QUANTIDADE'
      Required = True
    end
    object ZSQLC_RESERVAS_ITENSREP_VALIDADE: TDateTimeField
      DisplayLabel = 'Validade'
      FieldName = 'REP_VALIDADE'
      Required = True
    end
    object ZSQLC_RESERVAS_ITENSREP_SITUACAO: TStringField
      FieldName = 'REP_SITUACAO'
      Required = True
      Size = 1
    end
    object ZSQLC_RESERVAS_ITENSREP_DATABAIXA: TDateTimeField
      FieldName = 'REP_DATABAIXA'
    end
    object ZSQLC_RESERVAS_ITENSREP_CALC_SITUACAO: TStringField
      DisplayLabel = 'Situa'#231#227'o'
      FieldKind = fkCalculated
      FieldName = 'REP_CALC_SITUACAO'
      Size = 13
      Calculated = True
    end
    object ZSQLC_RESERVAS_ITENSREP_LKP_EMPRESA: TStringField
      DisplayLabel = 'Empresa:'
      FieldKind = fkLookup
      FieldName = 'REP_LKP_EMPRESA'
      LookupDataSet = ZSQLC_EMPRESAS
      LookupKeyFields = 'EMP_CODIGO'
      LookupResultField = 'EMP_FANTAS'
      KeyFields = 'REP_EMPRESA_DESTINO'
      Size = 40
      Lookup = True
    end
    object ZSQLC_RESERVAS_ITENSREP_LKP_DESCPROD: TStringField
      DisplayLabel = 'Descri'#231#227'o:'
      FieldKind = fkLookup
      FieldName = 'REP_LKP_DESCPROD'
      LookupDataSet = ZSQLC_PRODUTOS
      LookupKeyFields = 'ESP_IDFCOD'
      LookupResultField = 'ESP_DESCRI'
      KeyFields = 'REP_IDFPRODUTO'
      Size = 40
      Lookup = True
    end
    object ZSQLC_RESERVAS_ITENSREP_LKP_CODPRODUTO: TStringField
      DisplayLabel = 'Cod Produto'
      FieldKind = fkLookup
      FieldName = 'REP_LKP_CODPRODUTO'
      LookupDataSet = ZSQLC_PRODUTOS
      LookupKeyFields = 'ESP_IDFCOD'
      LookupResultField = 'ESP_CODIGO'
      KeyFields = 'REP_IDFPRODUTO'
      Size = 40
      Lookup = True
    end
  end
  object ZSQLC_EMPRESAS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'SELECT EMP_CODIGO, EMP_FANTAS FROM EMPRESAS'
      'ORDER BY EMP_CODIGO')
    Params = <>
    Left = 473
    Top = 345
  end
  object ZSQLC_RESERVAS_DOCUMENTOS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    BeforeClose = ZSQLC_RESERVAS_DOCUMENTOSBeforeClose
    SQL.Strings = (
      'SELECT * FROM RESERVAS_DOCUMENTOS '
      'WHERE RES_IDF = :RES_IDF')
    Params = <
      item
        DataType = ftUnknown
        Name = 'RES_IDF'
        ParamType = ptUnknown
      end>
    Left = 321
    Top = 393
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'RES_IDF'
        ParamType = ptUnknown
      end>
  end
  object ZSQLC_PRODUTOS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      'SELECT ESP_IDFCOD, ESP_CODIGO, ESP_DESCRI'
      'FROM ESTOQUE_PRODUTO'
      'ORDER BY ESP_IDFCOD, ESP_CODIGO')
    Params = <>
    Left = 473
    Top = 393
  end
end
